home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00067_DirectionArrows.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  3.4 KB  |  144 lines
  1. --
  2. -- DirectionArrows
  3. --
  4.  
  5. -- this class handles all runtime game management.
  6. -- don't worry about intersections of sprites except bounding sprites, check by direction relative to starting position.
  7. -- for this to work, draggables must be named "north", "south", "east", and "west"
  8.  
  9. -- constants:
  10. property delaySecs  -- the number of seconds we delay before moving on to the next round
  11.  
  12.  
  13. property ancestor
  14. property responseFlag
  15. property activeSpr
  16. property startPoint
  17.  
  18. global gUI
  19.  
  20.  
  21. on new me
  22.   -- initialize constants:
  23.   set delaySecs = 1
  24.   
  25.   set ancestor = new (script "DirectionSprite")
  26.   
  27.   set responseFlag = TRUE
  28.   set startPoint = point (320,240)
  29.   
  30.   -- add (the actorList, new (script "ObjectUpdater", me))
  31.   return me
  32. end
  33.  
  34.  
  35. on destruct me
  36.   if objectP (ancestor) then destruct (ancestor)
  37.   set ancestor = 0
  38. end
  39.  
  40.  
  41. on noResponse me
  42.   set responseFlag = FALSE
  43. end
  44.  
  45.  
  46. on initializeRound me
  47.   hideDraggables (me)
  48.   initializeRound (ancestor)
  49.   showDraggables (me)
  50.   pushOffDraggables (me)
  51.   -- initHandCursor ("hand", getDraggableList (me))
  52.   initPlay (me)
  53. end
  54.  
  55.  
  56. on mouseDown me, spr
  57.   -- watch hardwired direction arrows:
  58.   if spr < 25 or spr > 28 then return 0
  59.   
  60.   -- set up for movement:
  61.   puppetSprite spr, TRUE
  62.   set the memberNum of sprite spr to the memberNum of sprite spr + 1
  63.   set currName = the name of member the memberNum of sprite activeSpr of castLib the castLibNum of sprite activeSpr
  64.   
  65.   -- do the arrow action before checking for match:
  66.   case spr of
  67.     25: set dir = #up
  68.     26: set dir = #down
  69.     27: set dir = #right
  70.     28: set dir = #left
  71.     otherwise return 0
  72.   end case
  73.   
  74.   
  75.   -- actual movement:
  76.   set testSprite = move (me, activeSpr, dir)
  77.   
  78.   -- clean up after movement:
  79.   set the memberNum of sprite spr to the memberNum of sprite spr - 1
  80.   updateStage
  81.   puppetSprite spr, FALSE
  82.   updateStage
  83.   hideUnderSprite (me)
  84.   
  85.   -- have we matched the expected direction?
  86.   set matchDirection = FALSE
  87.   case spr of
  88.     25: if currName = "north" and the locv of sprite activeSpr < the locv of startPoint then set matchDirection = TRUE
  89.     26: if currName = "south" and the locv of sprite activeSpr > the locv of startPoint then set matchDirection = TRUE
  90.     27: if currName = "east"  and the loch of sprite activeSpr > the loch of startPoint then set matchDirection = TRUE
  91.     28: if currName = "west"  and the loch of sprite activeSpr < the loch of startPoint then set matchDirection = TRUE
  92.     otherwise return 0
  93.   end case
  94.   
  95.   if matchDirection then 
  96.     -- play the good response sound
  97.     if responseFlag then playResponseSound(1, 1)
  98.     -- play the proper "ID" sound
  99.     playSprite (gUI, activeSpr, #ID)
  100.     -- if so, move the draggable off the screen and animate the 'hit' container:
  101.     hideDraggable (me, activeSpr)
  102.     
  103.     updateStage
  104.     if not done (me) then 
  105.       initPlay (me)
  106.     end if
  107.     
  108.   else
  109.     
  110.     if responseFlag then playResponseSound(0, 1)
  111.     set the loc of sprite activeSpr to startPoint
  112.   end if
  113.   
  114.   return 1
  115. end
  116.  
  117.  
  118. -- initialize an individual play:
  119.  
  120. on initPlay me
  121.   set activeSpr = pushOnDraggable (me)
  122.   set startPoint = the loc of sprite activeSpr
  123.   updateStage
  124.   makePictLink (me, activeSpr)
  125.   -- play the intro sound by sprite...
  126.   playSprite (gUI, activeSpr, #prompt)
  127.   -- initHandCursor ("hand", getDraggableList (me))
  128. end
  129.  
  130.  
  131.  
  132. -- check to see if we are done.  
  133. -- if so, then do an action.
  134.  
  135. on done me
  136.   clearPictLink (me)
  137.   if checkDone (me) then 
  138.     wait (me, delaySecs)
  139.     go "finish"
  140.     return 1
  141.   else
  142.     return 0
  143.   end if
  144. end